unit SumUnit;

interface
  uses Messages, Dialogs;
  function Sum(m: array of integer):integer;


implementation
 function Sum(m: array of integer):integer;
  var
max,MaxIndex,i,n:integer;
 begin

result:=0;
   for i:=Low(m) to High(m) do
     if (m[i]>0) then result:=result+m[i];
  end;
  end.
